home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / Libraries / CW GUSI 1.6.4 / src / ProcessAliases < prev   
Text File  |  1995-04-02  |  339b  |  25 lines
  1. Perl -Sx "{0}" {"Parameters"}; Exit
  2.  
  3. #!perl
  4.  
  5. open(RN, ">StdLib.rn") || die;
  6. open(DF, ">StdLib.df") || die;
  7.  
  8. while ($ARGV[0] =~ /(.*)=(.*)/) {
  9.     print RN "-rn $1=$2 " unless ($1 eq $2);
  10.     $keep{$1} = 1;
  11.     shift @ARGV;
  12. }
  13.  
  14. while (<>)    {
  15.     if (/^(\S+).*\$/ || /EP=(\S+)/) {
  16.         unless ($keep{$1}) {
  17.             print DF "$1\n";
  18.         }
  19.     }
  20. }
  21.  
  22. close DF;
  23. close RN;
  24.  
  25.